Better code for whitespace-newline-mode.

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 3cbc41e84c050aeaa0e7ee481862f34339ac334e..68ecb142f709c6584bda33816caf4e5d741a103c 100644 (file)
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1102,12 +1102,9 @@ See also `whitespace-newline' and `whitespace-display-mappings'."
   :init-value nil
   :global     nil
   :group      'whitespace
-  (cond
-   (whitespace-newline-mode
-    (let ((whitespace-style '(face newline-mark newline)))
-      (whitespace-mode whitespace-newline-mode)))
-   (t
-    (whitespace-mode -1)))
+  (let ((whitespace-style '(face newline-mark newline)))
+    (whitespace-mode (if whitespace-newline-mode
+                        1 -1)))
   ;; sync states (running a batch job)
   (setq whitespace-newline-mode whitespace-mode))